home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / user2.tug < prev    next >
Text File  |  1991-10-18  |  5KB  |  244 lines

  1. TUGi_macro(v1.0)
  2. sample_01()
  3. {
  4.  
  5.     Screen(3);
  6.     cls(1);
  7.     paletteset();
  8.     wind_init();
  9.     wrtstr(
  10.         " "
  11.         "    TOWNSフォーラム、絵画喫茶マスター",
  12.         "          LUFOさんの作品ですっ♪",
  13.         "                32枚あります"
  14.         "       この画像データを表示しますか?",
  15.         " "
  16.     );
  17.     wind_close();
  18.  
  19.     Question(
  20.         Graph_View(
  21.             Q:\DATA\LUFO\COSMOS.TK4
  22.             Q:\DATA\LUFO\FRE_HAND.TK4
  23.             Q:\DATA\LUFO\KANASI_1.TK4
  24.             Q:\DATA\LUFO\KANASI_2.TK4
  25.             Q:\DATA\LUFO\KASAIM_1.TK4
  26.             Q:\DATA\LUFO\KASAIM_2.TK4
  27.             Q:\DATA\LUFO\MAJO.TK4
  28.             Q:\DATA\LUFO\NIGHT_S.TK4
  29.             Q:\DATA\LUFO\NJACK_1.TK4
  30.             Q:\DATA\LUFO\NO_UNDO.TK4
  31.             Q:\DATA\LUFO\OMEGA.TK4
  32.             Q:\DATA\LUFO\OYTS_1.TK4
  33.             Q:\DATA\LUFO\P_FORM_1.TK4
  34.             Q:\DATA\LUFO\P_FORM_2.TK4
  35.             Q:\DATA\LUFO\RPG_1.TK4
  36.             Q:\DATA\LUFO\SAKURA.TK4
  37.             Q:\DATA\LUFO\SLIME.TK4
  38.             Q:\DATA\LUFO\TOWNS\2H.TK4
  39.             Q:\DATA\LUFO\TOWNS\ADM_1.TK4
  40.             Q:\DATA\LUFO\TOWNS\ADM_2.TK4
  41.             Q:\DATA\LUFO\TOWNS\BR_1.TK4
  42.             Q:\DATA\LUFO\TOWNS\BR_2.TK4
  43.             Q:\DATA\LUFO\TOWNS\ELF91_1.TK4
  44.             Q:\DATA\LUFO\TOWNS\ELF91_2.TK4
  45.             Q:\DATA\LUFO\TOWNS\ELF91_3.TK4
  46.             Q:\DATA\LUFO\TOWNS\ELF91_4.TK4
  47.             Q:\DATA\LUFO\TOWNS\ELF91_5.TK4
  48.             Q:\DATA\LUFO\TOWNS\FF91_1.TK4
  49.             Q:\DATA\LUFO\TOWNS\FF91_2.TK4
  50.             Q:\DATA\LUFO\TOWNS\H90.TK4
  51.             Q:\DATA\LUFO\TOWNS\NINJA91.TK4
  52.             Q:\DATA\LUFO\TOWNS\TYPE2.TK4
  53.         );
  54.     );
  55.  
  56.  
  57.     /**************************/
  58.     /**  HEINZ さんのデータ  **/
  59.     /**************************/
  60.  
  61.     Screen(3);
  62.     cls(1);
  63.     paletteset();
  64.     wind_init();
  65.     wrtstr(
  66.         "  ",
  67.         "   HEINZさんのEUPデータに添えて",
  68.         "   絵画喫茶ウェートレスの あや さんが描いた絵です"
  69.         "                    (^_^)"
  70.         "     この画像データを表示しますか?",
  71.         " "
  72.     );
  73.     wind_close();
  74.  
  75.     Question(
  76.         Graph_View(
  77.             Q:\DATA\HEINZ00A\HEINZ00A.TIF
  78.         );
  79.     );
  80.  
  81.     /* もっかい画面を初期化する訳ぢゃ(^_^;) */
  82.     Screen(3);
  83.     cls(1);
  84.     paletteset();
  85.  
  86.     /***************************************/
  87.     /**  3つ目っ!                       **/
  88.     /***************************************/
  89.  
  90.     /* 将来有望なフリーウェアライター(?) になってくれると */
  91.     /* いいなぁ(^_^;)ムセキニンナコトヲ  (魚)                    */
  92.  
  93.     wind_init();
  94.     wrtstr(
  95.         "      セイバーさんの作品です。",
  96.         " "
  97.         "      この画像データを表示しますか?",
  98.         " "
  99.     );
  100.     wind_close();
  101.  
  102.     Question(
  103.         Graph_View(
  104.             Q:\DATA\SAVER\COACMA.PIC
  105.             Q:\DATA\SAVER\DAIGAK.PIC
  106.             Q:\DATA\SAVER\LIVE.PIC
  107.             Q:\DATA\SAVER\MAHOU.PIC
  108.             Q:\DATA\SAVER\M_GIRL.PIC
  109.             Q:\DATA\SAVER\T_WORLD.PIC
  110.         );
  111.     );
  112.  
  113.     /***************************************/
  114.     /**  SYM_SD                           **/
  115.     /****************************************/
  116.  
  117.     Screen(3);
  118.     cls(1);
  119.     paletteset();
  120.     wind_init();
  121.     wrtstr(
  122.         " "
  123.         "       Symgo Owno さんの作品です。",
  124.         "                4枚あります。",
  125.         "        この画像データを表示しますか?",
  126.         " "
  127.     );
  128.     wind_close();
  129.  
  130.     Question(
  131.         Graph_View(
  132.             Q:\DATA\SYM_SD\SYM_SD1.TIF
  133.             Q:\DATA\SYM_SD\SYM_SD2.TIF
  134.             Q:\DATA\SYM_SD\SYM_SD3.TIF
  135.             Q:\DATA\SYM_SD\SYM_SD4.TIF
  136.         );
  137.     );
  138.  
  139.  
  140.     /***************************************/
  141.     /**  DMMAP  **/
  142.     /****************************************/
  143.  
  144.     Screen(3);
  145.     cls(1);
  146.     paletteset();
  147.     wind_init();
  148.     wrtstr(
  149.         " "
  150.         "      ダンジョンマスターのマップでっす♪",
  151.         "           え~っと・・・・"
  152.         "     作者の方の御名前が分からないのですが(^^;"
  153.         " "
  154.         "          この画像データを表示しますか?",
  155.         " "
  156.     );
  157.     wind_close();
  158.  
  159.     Question(
  160.         Graph_View(
  161.             Q:\DATA\DMMAP\DMMAP1.TIF
  162.         );
  163.     );
  164.  
  165.  
  166.  
  167.     /*************/
  168.     /**  DMMAP  **/
  169.     /*************/
  170.  
  171.     Screen(3);
  172.     cls(1);
  173.     paletteset();
  174.     wind_init();
  175.     wrtstr(
  176.         " "
  177.         "じょうほくさんの作品で、TOWNSデザイン画や",
  178.         "フォーミュラカー、F15E(戦闘機ですね)等々…"
  179.         "                    7枚あります。"
  180.         " "
  181.         "          この画像データを表示しますか?",
  182.         " "
  183.     );
  184.     wind_close();
  185.  
  186.     Question(
  187.         Graph_View(
  188.             Q:\DATA\TOWNS05\TOWNS05.TK4
  189.             Q:\DATA\TOWNS04\TOWNS04.TK4
  190.             Q:\DATA\FWINDOW\FWINDOW1.TK4
  191.             Q:\DATA\F15E\F15E1.TK4
  192.             Q:\DATA\TYRRELL\TYRRELL1.TK4
  193.             Q:\DATA\MCLAREN2\MCLAREN2.TK4
  194.             Q:\DATA\MCLAREN1\MCLAREN1.TK4
  195.             Q:\DATA\ABURNER\ABURNER1.TK4
  196.         );
  197.     );
  198.  
  199.  
  200.     /***************************************/
  201.     /**  林檎の絵  **/
  202.     /****************************************/
  203.  
  204.     Screen(3);
  205.     cls(1);
  206.     paletteset();
  207.     wind_init();
  208.     wrtstr(
  209.         " "
  210.         "  ☆Plusα☆さんによる、林檎の絵です",
  211.         " "
  212.         "  この画像データを表示しますか?",
  213.         " "
  214.     );
  215.     wind_close();
  216.  
  217.     Question(
  218.         Graph_View(
  219.             Q:\DATA\RINGO\IM005.TIF
  220.             Q:\DATA\RINGO\IM006.TIF
  221.         );
  222.     );
  223.  
  224.  
  225.     /****************/
  226.     /**  お終いっ  **/
  227.     /****************/
  228.  
  229.     Screen(3);
  230.     cls(1);
  231.     paletteset();
  232.     wind_init();
  233.     wrtstr(
  234.         " ",
  235.         " ",
  236.         "   他のデータも見てみますか?"
  237.     );
  238.     wind_close();
  239.     Question(
  240.         MAIN2SB2.TUG
  241.     );
  242.     END.TUG
  243. }
  244.